﻿Public Class ValorComboManual
    Private _id As Integer
    Private _descripcion As String

    Public Sub New(ByVal ID As Integer, ByVal Name As String)
        _id = ID
        _descripcion = Name
    End Sub

    Public Property Display() As String
        Get
            Return _descripcion
        End Get

        Set(ByVal Value As String)
            _descripcion = Value
        End Set
    End Property

    Public Property Value() As Integer
        Get
            Return _id
        End Get

        Set(ByVal Value As Integer)
            _id = Value
        End Set
    End Property

End Class
